home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Oberon⁄F™ 1.1 / Obx / Docu / Open1 (.txt) < prev    next >
Encoding:
Oberon Document  |  1996-01-05  |  2.4 KB  |  56 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Helvetica
  16. Helvetica
  17. Helvetica
  18. Helvetica
  19. Helvetica
  20. MODULE ObxOpen1;
  21.     IMPORT Converters, Files, Views, Dialog, TextModels, TextMappers, TextViews;
  22.     PROCEDURE Do*;
  23.         VAR loc: Files.Locator; name: Files.Name; conv: Converters.Converter;
  24.             v: Views.View; t: TextModels.Model; f: TextMappers.Formatter;
  25.             res: LONGINT;
  26.     BEGIN
  27.         loc := NIL; name := ""; conv := NIL;
  28.         v := Views.Old(Views.ask, loc, name, conv);
  29.         IF (v # NIL) & (v IS TextViews.View) THEN
  30.             t := v(TextViews.View).ThisModel();
  31.             f.ConnectTo(t);
  32.             f.SetPos(t.Length());
  33.             f.WriteString("appendix");
  34.             Views.Register(v, Views.ask, loc, name, conv, res)
  35.         END
  36.     END Do;
  37. END ObxOpen1.
  38. TextControllers.StdCtrlDesc
  39. TextControllers.ControllerDesc
  40. Containers.ControllerDesc
  41. Controllers.ControllerDesc
  42. TextRulers.StdRulerDesc
  43. TextRulers.RulerDesc
  44. TextRulers.StdStyleDesc
  45. TextRulers.StyleDesc
  46. TextRulers.AttributesDesc
  47. Helvetica
  48. DevCommanders.StdViewDesc
  49. DevCommanders.ViewDesc
  50. Oberon by Example: ObxOpen1
  51. This example is a variation of the previous one; instead of opening a view it stores it back in some file.
  52.  ObxOpen1.Do
  53. In this example we have seen how a view can be stored into a file.
  54. Helvetica
  55. Documents.ControllerDesc
  56.